object FrmMain: TFrmMain Left = 239 Top = 108 Width = 424 Height = 352 Caption = 'Binary Editor' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = MnuMain Position = poDefault ShowHint = True OnActivate = FormActivate OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnDestroy = FormDestroy OnResize = FormResize PixelsPerInch = 96 TextHeight = 13 object PanReclama: TPanel Left = 0 Top = 37 Width = 416 Height = 185 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 4 object LblTop: TRxLabel Left = 2 Top = 2 Width = 412 Height = 10 Align = alTop AutoSize = False end object LblIntro1: TRxLabel Left = 2 Top = 12 Width = 412 Height = 14 Align = alTop Alignment = taCenter AutoSize = False Caption = 'This software is created with use' ShadowColor = clWhite ShadowSize = 0 WordWrap = True end object LblTitle: TRxLabel Left = 2 Top = 46 Width = 412 Height = 28 Align = alTop Alignment = taCenter AutoSize = False Caption = '"TAKHexEdit"' Font.Charset = RUSSIAN_CHARSET Font.Color = clRed Font.Height = -19 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentFont = False end object LblWWW: TRxLabel Left = 2 Top = 74 Width = 412 Height = 18 Hint = 'http://www.raid.ru/customers/ankol' Align = alTop Alignment = taCenter AutoSize = False Caption = 'Go to TAKHexEditor Home Page' Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsUnderline] ParentFont = False ShadowColor = clWhite ShadowSize = 0 OnClick = LblWWWClick OnMouseEnter = LblWWWMouseEnter OnMouseLeave = LblWWWMouseLeave end object LblEMail: TRxLabel Left = 2 Top = 92 Width = 412 Height = 18 Hint = 'ankol@perm.raid.ru' Align = alTop Alignment = taCenter AutoSize = False Caption = '� 1998 Andrey Kolegov' Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsUnderline] ParentFont = False ShadowColor = clWhite ShadowSize = 0 OnClick = LblEMailClick OnMouseEnter = LblWWWMouseEnter OnMouseLeave = LblWWWMouseLeave end object LblIntro2: TRxLabel Left = 2 Top = 26 Width = 412 Height = 20 Align = alTop Alignment = taCenter AutoSize = False Caption = 'Delphi visual component' ShadowSize = 0 end end object StatusBar: TStatusBar Left = 0 Top = 287 Width = 416 Height = 19 Panels = < item Alignment = taCenter Width = 50 end item Alignment = taCenter Width = 100 end item Width = 50 end> SimplePanel = False end object ToolBar: TPanel Left = 0 Top = 3 Width = 416 Height = 34 Align = alTop BevelOuter = bvNone TabOrder = 0 object SbOpen: TSpeedButton Left = 27 Top = 3 Width = 25 Height = 25 Hint = 'Open file' Flat = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 88888888888888888888000000000008888800333333333088880B0333333333 08880FB03333333330880BFB0333333333080FBFB000000000000BFBFBFBFB08 88880FBFBFBFBF0888880BFB0000000888888000888888880008888888888888 8008888888880888080888888888800088888888888888888888} OnClick = MnuOpenClick end object SbWin: TSpeedButton Left = 162 Top = 3 Width = 25 Height = 25 Hint = 'ANSI' GroupIndex = 1 Down = True Flat = True Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 1800000000000003000000000000000000000000000000000000C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0000000000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0000000C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0C000000000 0000000000C0C0C0C0C0C0C0C0C0000000000000000000C0C0C0C0C0C0C0C0C0 C0C0C0FF0000FF0000C0C0C00000000000000000000000000000000000000000 00000000000000C0C0C0C0C0C0FF0000C0C0C0C0C0C0FF0000FF000000000000 0000FF000000000000000000000000FFFF000000000000C0C0C0C0C0C0FF0000 C0C0C0C0C0C0C0C0C0C0C0C0000000000000FF0000FF000000000000FFFF00FF FF000000000000C0C0C0C0C0C0C0C0C0C0C0C00000FF0000FFC0C0C000000000 0000000000FF000000000000FFFF000000000000000000C0C0C0C0C0C00000FF C0C0C0C0C0C00000FF0000FF0000000000000000000000000000000000000000 00000000000000C0C0C0C0C0C00000FFC0C0C0C0C0C0C0C0C0C0C0C000000000 00000000FF00000000000000000000FF00000000000000C0C0C0C0C0C0C0C0C0 C0C0C00000000000000000000000000000000000FF0000FF00000000FF0000FF 00000000000000C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0C000000000 00000000000000FF00000000FF00000000000000000000C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000000000000000000000000000000000 00000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0000000000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0} Layout = blGlyphRight Spacing = 2 OnClick = MnuWinClick end object SbDos: TSpeedButton Left = 187 Top = 3 Width = 25 Height = 25 Hint = 'OEM' GroupIndex = 1 Flat = True Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 1800000000000003000000000000000000000000000000000000C6C6C6000042 0000420000420000420000212100004200214200214200210021210042420042 42002121000000C6C6C60000000000DE0000BD0000BD0000BD00009C5A0021BD 005ABD005A21212100848400BDBD00BDBD009C9C0063630000000000000000FF 0000FF0000FF0000FF0000FF00005ABD00397B0039009C9C00FFFF00FFFF00FF FF00FFFF009C9C0000000000000000FF00007B00000000000039007B0000DE00 002100000000DEDE00BDBD39000000000000BDBD00FFFF0000000000000000FF 00007BC6C6C67B00399C003900007B00007BC6C6C6000000420021FF007B0021 2100DEDE00FFFF0000000000000000FF00007BC6C6C67B0039BD005A00007B00 007BC6C6C6002121420021FF007B007B7B00BDBD003939C6C6C60000000000FF 00007B0000007B0039BD005A00007B00007B00000000DEDE420021FF007B0000 00000000000000C6C6C60000000000FF0000BD00008439005ADE005A21005A00 003942002100FFFF2139397B0039000000007B7B009C9C0000000000000000FF 0000FF0000FF00009CBD0039FF007BFF007B9C003900BDBD00FFFF00FFFF00FF FF00FFFF00BDBD00000000000000007B00007B00007B00007B0000217B00397B 00397B0039210000007B7B007B7B007B7B003939000000C6C6C6C6C6C6636363 424242000000949494313131000000A5A5A50000003131319494946363639494 94737373000000C6C6C6C6C6C6636363424242313131848484949494000000A5 A5A5000000313131313131C6C6C6313131A5A5A5000000C6C6C6C6C6C6636363 424242949494212121949494313131A5A5A50000000000003131316363638484 84212121C6C6C6C6C6C6C6C6C6636363949494848484000000313131B5B5B5A5 A5A5000000636363636363000000000000000000000000C6C6C6C6C6C6636363 C6C6C6212121C6C6C6000000949494A5A5A50000006363637373730000003131 31A5A5A5000000C6C6C6C6C6C6313131525252000000C6C6C6C6C6C631313152 5252000000000000313131636363525252000000C6C6C6C6C6C6} OnClick = MnuDosClick end object SbNew: TSpeedButton Left = 2 Top = 3 Width = 25 Height = 25 Hint = 'New binary file' Flat = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 888888888888888888888800000000000888880FFFFFFFFF0888880FFFFFFFFF 0888880FFFFFFFFF0888880FFFFFFFFF0888880FFFFFFFFF0888880FFFFFFFFF 0888880FFFFFFFFF0888880FFFFFFFFF0888880FFFFFF0000888880FFFFFF0F0 8888880FFFFFF008888888000000008888888888888888888888} OnClick = MnuNewClick end object SbSave: TSpeedButton Left = 52 Top = 3 Width = 25 Height = 25 Hint = 'Save file' Enabled = False Flat = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888880000000000000880330000008803088033000000880308803300000088 0308803300000000030880333333333333088033000000003308803088888888 0308803088888888030880308888888803088030888888880308803088888888 0008803088888888080880000000000000088888888888888888} OnClick = MnuSaveClick end object SbCopy: TSpeedButton Left = 82 Top = 3 Width = 25 Height = 25 Hint = 'Copy' Enabled = False Flat = True Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC00000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888800000008888888888888888800000008888888444444444800000008888 8884FFFFFFF48000000088888884F00000F48000000080000004FFFFFFF48000 000080FFFFF4F00000F48000000080F00004FFFFFFF48000000080FFFFF4F00F 44448000000080F00004FFFF4F488000000080FFFFF4FFFF44888000000080F0 0F04444448888000000080FFFF0F088888888000000080FFFF00888888888000 0000800000088888888880000000888888888888888880000000888888888888 888880000000} OnClick = MnuCopyClick end object SbPaste: TSpeedButton Left = 107 Top = 3 Width = 25 Height = 25 Hint = 'Paste' Enabled = False Flat = True Glyph.Data = { 4E010000424D4E01000000000000760000002800000012000000120000000100 040000000000D800000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888880000008888888888888888880000008888888444444444480000008800 0004FFFFFFFF4800000080737374F000000F4800000080373734FFFFFFFF4800 000080737374F000F4444800000080373734FFFFF4F48800000080737374FFFF F448880000008037373444444408880000008073737373737308880000008037 00000000770888000000807708888880730888000000803730B00B0737088800 00008800000BB000008888000000888888000088888888000000888888888888 888888000000888888888888888888000000} OnClick = MnuPasteClick end object SbClear: TSpeedButton Left = 132 Top = 3 Width = 25 Height = 25 Hint = 'Clear' Enabled = False Flat = True Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC00000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888800000008888888888888888800000008880888888888808800000008800 0888888888888000000088000088888880888000000088800088888808888000 0000888800088880088880000000888880008800888880000000888888000008 8888800000008888888000888888800000008888880000088888800000008888 8000880088888000000088800008888008888000000088000088888800888000 0000880008888888880880000000888888888888888880000000888888888888 888880000000} OnClick = MnuClearClick end object PanExit: TPanel Left = 384 Top = 0 Width = 32 Height = 31 Align = alRight BevelOuter = bvNone TabOrder = 1 object SbExit: TSpeedButton Left = 5 Top = 3 Width = 25 Height = 25 Hint = 'Exit' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000 03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB 0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB 0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB 0333337F777FFFFF7F3333000000000003333377777777777333} NumGlyphs = 2 OnClick = MnuExitClick end end object PanSep2: TPanel Left = 0 Top = 31 Width = 416 Height = 3 Align = alBottom BevelOuter = bvLowered TabOrder = 0 end object CbAddr: TComboBox Left = 218 Top = 3 Width = 79 Height = 21 Hint = 'Address' ItemHeight = 13 TabOrder = 2 Text = '0' OnClick = CbAddrClick OnKeyPress = CbAddrKeyPress end end object PanSep1: TPanel Left = 0 Top = 0 Width = 416 Height = 3 Align = alTop BevelOuter = bvLowered TabOrder = 1 end object PanEdit: TPanel Left = 0 Top = 222 Width = 416 Height = 65 Align = alBottom BevelOuter = bvNone TabOrder = 2 Visible = False object HexEdit: TAKHexEdit Left = 0 Top = 21 Width = 416 Height = 44 Cursor = crIBeam Align = alClient BorderStyle = bsSingle Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = 'Courier New' Font.Style = [] TabOrder = 0 TabStop = True AllowSelection = True HeaderControl = HexHeader PersistentSelection = False ReadOnly = False Version = '1.01' OnKeyDown = HexEditKeyDown OnChangeAddress = HexEditChangeAddress OnChangeData = HexEditChangeData OnChangeSelection = HexEditChangeSelection OnChangeParams = HexEditChangeParams end object HeaderBar: TPanel Left = 0 Top = 0 Width = 416 Height = 21 Align = alTop BevelInner = bvLowered BevelOuter = bvNone BorderWidth = 1 TabOrder = 1 OnResize = HeaderBarResize object HexHeader: THeaderControl Left = 2 Top = 2 Width = 412 Height = 17 Align = alClient Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = 'Courier New' Font.Style = [] Sections = < item Alignment = taCenter MaxWidth = 55 MinWidth = 55 Width = 55 end item Alignment = taCenter AllowClick = False MaxWidth = 4 MinWidth = 4 Width = 4 end item Alignment = taCenter AllowClick = False MaxWidth = 27 MinWidth = 27 Text = '0' Width = 27 end item Alignment = taCenter AllowClick = False MaxWidth = 27 MinWidth = 27 Text = '1' Width = 27 end item Alignment = taCenter AllowClick = False MaxWidth = 27 MinWidth = 27 Text = '2' Width = 27 end item Alignment = taCenter AllowClick = False MaxWidth = 27 MinWidth = 27 Text = '3' Width = 27 end item Alignment = taCenter AllowClick = False MaxWidth = 27 MinWidth = 27 Text = '4' Width = 27 end item Alignment = taCenter AllowClick = False MaxWidth = 27 MinWidth = 27 Text = '5' Width = 27 end item Alignment = taCenter AllowClick = False MaxWidth = 27 MinWidth = 27 Text = '6' Width = 27 end item Alignment = taCenter AllowClick = False MaxWidth = 27 MinWidth = 27 Text = '7' Width = 27 end item Alignment = taCenter AllowClick = False MaxWidth = 9 MinWidth = 9 Width = 9 end item AllowClick = False MaxWidth = 128 MinWidth = 128 Text = '01234567' Width = 128 end> ParentFont = False OnSectionClick = HexHeaderSectionClick end end end object MnuMain: TMainMenu Left = 8 Top = 112 object MnuFile: TMenuItem Caption = '&File' object MnuNew: TMenuItem Caption = '&New...' OnClick = MnuNewClick end object MnuOpen: TMenuItem Caption = '&Open...' ShortCut = 114 OnClick = MnuOpenClick end object MnuReopen: TMenuItem Caption = '&Reopen' end object MnuSave: TMenuItem Caption = '&Save...' Enabled = False ShortCut = 113 OnClick = MnuSaveClick end object MnuSaveAs: TMenuItem Caption = 'Save &As...' Enabled = False ShortCut = 16497 OnClick = MnuSaveAsClick end object MnuClose: TMenuItem Caption = '&Close' Enabled = False OnClick = MnuCloseClick end object N1: TMenuItem Caption = '-' end object MnuExit: TMenuItem Caption = 'E&xit' OnClick = MnuExitClick end end object MnuEdit: TMenuItem Caption = '&Edit' object MnuCopy: TMenuItem Caption = '&Copy' Enabled = False ShortCut = 16451 OnClick = MnuCopyClick end object MnuPaste: TMenuItem Caption = '&Paste' Enabled = False ShortCut = 16470 OnClick = MnuPasteClick end object MnuClear: TMenuItem Caption = 'Cl&ear' Enabled = False ShortCut = 16430 OnClick = MnuClearClick end object N3: TMenuItem Caption = '-' end object MnuSearch: TMenuItem Caption = '&Search...' Enabled = False ShortCut = 16467 OnClick = MnuSearchClick end object MnuSearchAgain: TMenuItem Caption = 'Search &Again' Enabled = False ShortCut = 16460 OnClick = MnuSearchAgainClick end object MnuReplace: TMenuItem Caption = '&Replace' Enabled = False ShortCut = 16466 OnClick = MnuReplaceClick end object MnuFill: TMenuItem Caption = '&Fill...' Enabled = False ShortCut = 16454 OnClick = MnuFillClick end end object MnuView: TMenuItem Caption = '&View' object MnuDataSize: TMenuItem Caption = '&Data Size' object MnuByte: TMenuItem Tag = 2 Caption = '&BYTE' Checked = True RadioItem = True OnClick = MnuByteClick end object MnuWord: TMenuItem Tag = 4 Caption = '&WORD' RadioItem = True OnClick = MnuByteClick end object MnuDWord: TMenuItem Tag = 8 Caption = '&DWORD' RadioItem = True OnClick = MnuByteClick end end object MnuCharset: TMenuItem Caption = '&Encoding' object MnuWin: TMenuItem Caption = '&ANSI' Checked = True RadioItem = True OnClick = MnuWinClick end object MnuDos: TMenuItem Caption = '&OEM' RadioItem = True OnClick = MnuDosClick end end object MnuFontSize: TMenuItem Caption = '&Font Size' object MnuFont8: TMenuItem Tag = 8 Caption = '&8' RadioItem = True OnClick = MnuFont8Click end object MnuFont10: TMenuItem Tag = 10 Caption = '1&0' Checked = True RadioItem = True OnClick = MnuFont8Click end object MnuFont12: TMenuItem Tag = 12 Caption = '1&2' RadioItem = True OnClick = MnuFont8Click end object MnuFont14: TMenuItem Tag = 14 Caption = '1&4' RadioItem = True OnClick = MnuFont8Click end end object N2: TMenuItem Caption = '-' end object MnuToolBar: TMenuItem Caption = '&Tool Bar' Checked = True OnClick = MnuToolBarClick end object MnuHeaderBar: TMenuItem Caption = '&Header Bar' Checked = True OnClick = MnuHeaderBarClick end object MnuStatusBar: TMenuItem Caption = '&Status Bar' Checked = True OnClick = MnuStatusBarClick end end object MnuTools: TMenuItem Caption = '&Tools' object MnuConvert: TMenuItem Caption = '&Convert' Enabled = False object MnuToANSI: TMenuItem Caption = 'To &ANSI' OnClick = MnuToANSIClick end object MnuToOEM: TMenuItem Caption = 'To &OEM' OnClick = MnuToANSIClick end end end object MnuHelp: TMenuItem Caption = '&?' object MnuAbout: TMenuItem Caption = '&About' OnClick = MnuAboutClick end end end object DlgOpen: TOpenDialog Filter = 'All files|*.*' Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist] Left = 88 Top = 112 end object DlgSave: TSaveDialog Filter = 'All files|*.*' Options = [ofOverwritePrompt, ofHideReadOnly] Left = 128 Top = 112 end object Storage: TFormStorage IniSection = 'Window' MinMaxInfo.MinTrackHeight = 200 MinMaxInfo.MinTrackWidth = 340 StoredProps.Strings = ( 'MnuDos.Checked' 'MnuWin.Checked' 'MnuFont8.Checked' 'MnuFont10.Checked' 'MnuFont12.Checked' 'MnuFont14.Checked' 'MnuToolBar.Checked' 'MnuHeaderBar.Checked' 'MnuStatusBar.Checked' 'MnuByte.Checked' 'MnuWord.Checked' 'MnuDWord.Checked') Left = 48 Top = 112 end object Timer: TTimer OnTimer = TimerTimer Left = 168 Top = 112 end end